home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / lang / fst-31s / doc / mykindof.mod < prev    next >
Text File  |  1992-09-20  |  308b  |  13 lines
  1. IMPLEMENTATION MODULE MyKindOfProgrammers;
  2. FROM Strings IMPORT CompareStr;
  3. CLASS Modula2Programmer;
  4.   PROCEDURE isSmart() :BOOLEAN;
  5.     BEGIN
  6.       RETURN CompareStr(compilerVendor,"FST") = 0;
  7.     END isSmart;
  8.   INIT
  9.     compilerVendor := "FST";
  10. END Modula2Programmer;
  11.  
  12. END MyKindOfProgrammers.
  13.